жָԪУк

Sub test() 'ǰԪкźк
    MsgBox ActiveCell.Row
    MsgBox ActiveCell.Column     
End Sub


Sub жָек() 'ǰԪкźк
    MsgBox Cells(1, "D").Column  '4
End Sub


Sub жָек() 'ǰԪкźк3
    Dim L As String
    L = "A" 'ĸб 򿪷ʱʹбȡĸ
    
    MsgBox Cells(1, L).Column 'AΪݡ1    
End Sub


